home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 3606.ZIP / ASICMAN.EXE / TEST1.ASI < prev    next >
Text File  |  1992-05-21  |  1KB  |  65 lines
  1. REM
  2. REM  (C)By Charles Peter White 1991
  3. REM
  4. REM  For ASIC Compiler version 1.0 and above
  5. REM
  6. REM  (C)Part of the Asic-F1 series.
  7. CLS
  8. PRINT"This shows the string on the top line with a flashing cursor on the last" 
  9. print"character.  The next line shows the RIGHT side of the cursor, which is"
  10. print"set with C$."
  11. print"The last line shows the LEFT side of the cursor, which is set at D$."
  12. print"Top, single character, is the current cursor character.  This is Z$."
  13. print""
  14. print"Press ESCape to abort."
  15. A$="This is a test line, so Move The Cursors Left and Right"
  16. A=LEN(A$)
  17. B=A
  18. LOCATE 12,1
  19. PRINT A$;
  20. START:
  21. GOSUB GETAKEY:
  22. IF G=27 THEN FINI:
  23. IF EXTENDED=1 THEN A1:
  24. GOTO START:
  25. A1:
  26. IF G=75 THEN CURLEFT:
  27. IF G=77 THEN CURRIGHT:
  28. GOTO START:
  29. CURLEFT:
  30. IF A<2 THEN START:
  31. A=A-1
  32. GOTO CURLOCATE:
  33. CURRIGHT:
  34. IF A>B THEN START:
  35. A=A+1
  36. GOTO CURLOCATE:
  37. CURLOCATE:
  38. GOSUB DISPLAY:
  39. LOCATE 12,A
  40. PRINT"";
  41. GOTO START:
  42. GETAKEY:
  43. G$=INKEY$
  44. G=ASC(G$)
  45. RETURN
  46. DISPLAY:
  47. C$=MID$(A$,A,B)
  48. REM Change D$=LEFT$(A$,A) for Asci 3.0 and above, if required.
  49. D$=MID$(A$,1,A)
  50. LOCATE 14,1
  51. PRINT C$;
  52. PRINT" "
  53. LOCATE 16,1
  54. PRINT D$;
  55. PRINT" "
  56. Z=A-1
  57. Z$=MID$(A$,A,1)
  58. LOCATE 11,Z
  59. PRINT" ";
  60. PRINT Z$;
  61. PRINT" ";
  62. RETURN
  63. FINI:
  64. END
  65.